1 PRINT:PRINT "*** EXPORT APPLESOFT TO IDIOT COMPILER"
2 PRINT "*** PLEASE WAIT...":PRINT
10 DIM L$(100):L=1:ON ERR GOTO 16
11 PRINT CHR$(4);"OPEN EXPORT.SRC"
12 PRINT CHR$(4);"READ EXPORT.SRC"
13 GET LP$: IF  ASC (LP$) = 13 OR  ASC (LP$)= 141 GOTO 15
14 L$(L) = L$(L) + LP$: GOTO 13
15 L = L + 1:L$(L) = "": GOTO 13
16 PRINT  CHR$ (4);"CLOSE"

20 INPUT "*** APPLESOFT PROGRAM: ";A$

30 L$(1)=L$(1)+A$+CHR$(162)

31 PRINT CHR$(4);"OPEN EXPORT.TMP"
32 PRINT CHR$(4);"WRITE EXPORT.TMP"
33 FOR A=1 TO 3:PRINT L$(A):NEXT
34 PRINT CHR$(4);"CLOSE"
35 PRINT CHR$(4);"EXEC EXPORT.TMP"


IF PEEK(104) <> 64 THEN POKE 104,64: POKE 16384,0: PRINT CHR$(4) "LOAD 
X=PEEK (175)+ 256*PEEK(176): X=X-16384: PRINT CHR$(4) "BSAVE EXPORT.TMP,A16384,L";X
POKE 104,8:PRINT CHR$(4);"RUN PARSER"
